#!/usr/bin/perl
$a = 1;
if($a == 1) {
	print "a = 1\n";
} elsif($a == 2) {
	print "a = 2\n";
}else {
	print "a = ?\n";
}

@arr = ("one", "two", "three", "four", "five");
foreach(@arr){
  next if $_=~/two/;
  if ($_=~/four/){
  	last; #break
  }
  print "$_.\n";

}

 print "for each\n";
@arr=();
foreach(@arr){
  print "$_.\n";

}